home *** CD-ROM | disk | FTP | other *** search
/ BBS in a Box 7 / BBS in a Box - Macintosh - Volume VII (BBS in a Box) (January 1993).iso / Files / Prog / T / Think-Pascal-7.0.cpt / THINK Pascal Interfaces / ConnectionTools.p < prev    next >
Encoding:
Text File  |  1991-04-05  |  2.1 KB  |  133 lines  |  [TEXT/PJMM]
  1. {    This file has been processed by The THINK Pascal Source Converter, v1.1.    }
  2.  
  3. {}
  4. {    ConnectionTools.p}
  5. {    Pascal Interface to the Connection Manager Tools.}
  6. {    }
  7. {    Copyright © Apple Computer, Inc. 1988-90}
  8. {    All rights reserved}
  9. {}
  10.  
  11. {$IFC UNDEFINED UsingIncludes}
  12. {$SETC UsingIncludes := 0}
  13. {$ENDC}
  14.  
  15.  
  16. unit ConnectionTools;
  17. interface
  18.     uses
  19.         Types, OSUtils, AppleTalk, Memory, Script, Packages, Dialogs, CTBUtilities, Connections;
  20.  
  21.  
  22.  
  23.  
  24.  
  25.  
  26.  
  27.  
  28.  
  29.  
  30.  
  31.  
  32.  
  33.  
  34.  
  35.  
  36.  
  37.  
  38.  
  39.     const
  40. {    messages                        }
  41.  
  42.         cmInitMsg = 0;
  43.         cmDisposeMsg = 1;
  44.         cmSuspendMsg = 2;
  45.         cmResumeMsg = 3;
  46.         cmMenuMsg = 4;
  47.         cmEventMsg = 5;
  48.         cmActivateMsg = 6;
  49.         cmDeactivateMsg = 7;
  50.  
  51.         cmIdleMsg = 50;
  52.         cmResetMsg = 51;
  53.         cmAbortMsg = 52;
  54.  
  55.         cmReadMsg = 100;
  56.         cmWriteMsg = 101;
  57.         cmStatusMsg = 102;
  58.         cmListenMsg = 103;
  59.         cmAcceptMsg = 104;
  60.         cmCloseMsg = 105;
  61.         cmOpenMsg = 106;
  62.         cmBreakMsg = 107;
  63.         cmIOKillMsg = 108;
  64.         cmEnvironsMsg = 109;
  65.  
  66.  
  67. {    messages for validate DefProc    }
  68.         cmValidateMsg = 0;
  69.         cmDefaultMsg = 1;
  70.  
  71.  
  72. {    messages for Setup DefProc    }
  73.         cmSpreflightMsg = 0;
  74.         cmSsetupMsg = 1;
  75.         cmSitemMsg = 2;
  76.         cmSfilterMsg = 3;
  77.         cmScleanupMsg = 4;
  78.  
  79. {    messages for scripting defProc    }
  80.         cmMgetMsg = 0;
  81.         cmMsetMsg = 1;
  82.  
  83.  
  84. {    messages for localization defProc    }
  85.         cmL2English = 0;
  86.         cmL2Intl = 1;
  87.  
  88.  
  89.         cdefType = 'cdef';        { main connection definition procedure    }
  90.         cvalType = 'cval';        { validation definition procedure    }
  91.         csetType = 'cset';        { connection setup definition procedure    }
  92.         clocType = 'cloc';        { connection configuration localization defProc    }
  93.         cscrType = 'cscr';        { connection scripting defProc interfaces    }
  94.  
  95.         cbndType = 'cbnd';        { bundle type for connection }
  96.         cverType = 'vers';
  97.  
  98.  
  99.     type
  100.         CMDataBufferPtr = ^CMDataBuffer;
  101.         CMDataBuffer = record
  102.                 thePtr: Ptr;
  103.                 count: LONGINT;
  104.                 channel: CMChannel;
  105.                 flags: CMFlags;
  106.             end;
  107.  
  108.         CMCompletorPtr = ^CMCompletorRecord;
  109.         CMCompletorRecord = record
  110.                 async: BOOLEAN;
  111.                 completionRoutine: ProcPtr;
  112.             end;
  113.  
  114.  
  115.  
  116.     {    Private Data Structure    }
  117.  
  118.         CMSetupPtr = ^CMSetupStruct;
  119.         CMSetupStruct = record
  120.                 theDialog: DialogPtr;
  121.                 count: INTEGER;
  122.                 theConfig: Ptr;
  123.                 procID: INTEGER;        { procID of the tool    }
  124.             end;
  125.  
  126.  {UsingConnectionTools}
  127.  
  128.  
  129. implementation
  130. end.
  131.  
  132.  
  133.